1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
305 REM PROJECT DIRECTOR: FRANK WINTER
320 REM PROGRAM NAME: EXPONENTS
330 REM WRITTEN BY: DENNIS KASKAN
340 REM REVISED BY: MARK LOVELL
350 REM UPDATED BY: BILL CUMBERLAND
400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0:POKE646,13
405 PRINT"              [201]NSTRUCTIONS  [146]
415 [153]"   (null)HIS PROGRAM IS A TUTORIAL ON           EXPONENTS.
420 PRINT"   [201]T TEACHES HOW TO MULTIPLY AND
425 [153]"   DIVIDE EXPONENTS.
430 PRINT"   [193] SHORT QUIZ IS INCLUDED."
495 GOSUB830:RETURN
500 REM <YES> SOUND
505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
510 POKE54296,15:POKE54277,42:POKE54278,250
515 POKE54276,23:POKE54273,23:POKE54272,191
520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
525 POKE54296,0:RETURN
530 REM <YES> SOUND
535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
540 POKE54296,15:POKE54277,18:POKE54278,242
545 POKE54276,33:POKE54273,4:POKE54272,148
550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
555 POKE54296,0:RETURN
560 REM <BLIP> SOUND
565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
570 POKE54296,7:POKE54277,42:POKE54278,250
575 POKE54276,23:POKE54273,23:POKE54272,191
580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
585 POKE54296,0:RETURN
590 FORT=1TO500:NEXT:RETURN
591 FORT=1TO1000:NEXT:RETURN
592 FORT=1TO2000:NEXT:RETURN
595 FORT=1TO5000:NEXT:RETURN
800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
801 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB590
802 PRINT"           FOR C 64 COMPUTERS":GOSUB590
803 PRINT"                                        [146]";
804 PRINT"                                        [146]";
805 PRINT"                                        [146]";
806 PRINT"               EXPONENTS                [146]";
807 PRINT"                                        [146]";
808 PRINT"                                        [146]";
809 PRINT"                                        [146]":GOSUB591:GOSUB560
810 PRINT"           INSTRUCTIONS?  Y/N
811 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 811
812 [139]R$[178]"Y"[167][141]400
813 [153]"LOAD  AND AWAY WE GO .....":[141]591:[141]500:[141]590
814 [137]1000
830 [141]591:[141]560
835 [151]UN,0:[153][200](UD$,24);"PRINT (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAITLIST"
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
855 [153]" --------------------------------------"
860 [143]  IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
905 UD$="":UP$="                                      "
909 RETURN
910 GOSUB900:PRINT"[147] "
920 GOTO800
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
1003 REM TAP AT 1035,1310
1004 ZP=0:ZQ=0:V=0:M=0
1030 POKE UT,UL%:Q=0
1035 IF ZP=1 THENPRINT"":GOTO 4120
1169 UT$=" [197]XPONENTS":UP=0
1200 PRINT"[147][160][212]HIS PROGRAM WILL INTRODUCE YOU TO
1210 [153]" THE BASIC IDEAS OF EXPONENTS.
1340 GOSUB830
1350 PRINT"[147]  [215]E WILL START NOW.":GOSUB592
1400 GOSUB 5640
1410 PRINT"[147]"
1420 PRINTTAB(15)"[197][216][208][207][206][197][206][212][211]"
1430 PRINTTAB(15)"---------"
1440 PRINT"
1450 [137] 1490
1460 [153]"LOAD
1470 X=X+1
1480 IF X=2 THEN 6880
1490 PRINT"      [197]XPONENTS ARE USED TO SHOW
1500 [153]"      HOW MANY TIMES A NUMBER IS"
1510 [153]" MULTIPLIED BY ITSELF.      "
1520 [141]830:[141]850
1530 [153]" RIGHT$NSTEAD OF WRITING "
1540 [153] [163]8);"2*2*2*2*2,"
1550 [153]" (null)E WRITE:"
1560 [153][163]12)"5"
1570 [153][163]11)"2"
1580 [153]"
1590 PRINT" THE 5 TELLS US THAT WE ARE TO"
1600 PRINT" MULTIPLY THE 2 BY ITSELF 5 TIMES."
1610 GOSUB830
1620 GOSUB850:PRINT" [200]OW WOULD YOU WRITE "
1630 PRINTTAB(8)"3*3*3*3"
1640 PRINT" [215]HAT IS THE BASE?  [157]";
1650 US$="0123456789":UL=1:GOSUB35:A=VAL(UR$)
1660 PRINT" [215]HAT IS THE EXPONENT?  [157]";
1670 US$="0123456789":UL=1:GOSUB35:B=VAL(UR$)
1680 PRINT""
1690 PRINTTAB(15)""B""
1700 PRINTTAB(14)""A""
1710 PRINT
1730 IF A<>3 THEN 6620
1740 IF B<>4 THEN 6620
1750 GOSUB 7160
1770 GOSUB850:PRINT"[160][160][160][205][213][204][212][201][208][204][201][195][193][212][201][207][206][160][207][198][160][197][216][208][207][206][197][206][212][211]
1780 [153]"   ---------------------------
1790 PRINT" [197]XPONENTS CAN BE COMBINED"
1800 PRINT" TO PRODUCE A SIMPLER ANSWER."
1810 GOSUB830
1820 GOSUB850:PRINT" [198]OR EXAMPLE;"
1830 GOSUB 7090
1840 PRINT" CAN BE SIMPLIFIED LIKE THIS;"
1850 PRINT
1860 PRINTTAB(11)" [145][145][145][145][145]="
1870 PRINT
1880 PRINTTAB(12)"= 2*2*2 *[160]2*2*2*2
1890 [153]
1900 [153][163]15)"7
1910 PRINTTAB(12)"= 2
1920 [141]830
1930 [141]850:[153]" ATNLSO,"
1940 [153][163]4)"6    3
1950 PRINTTAB(3)"3  * 3  =
1960 [153]""
1970 [153][163]11)"= 3*3*3*3*3*3 * 3*3*3
1980 PRINT
1990 PRINTTAB(15)"9
2000 [153][163]11)"= 3
2010 GOSUB830
2020 GOSUB850:PRINT" [211]INCE,"
2030 PRINTTAB(4)"3    4    7
2040 [153][163]3)"2  * 2  = 2   AND"
2050 [153] ""
2060 [153][163]4)"6    3    9
2070 PRINTTAB(3)"3  * 3  = 3  ,"
2080 PRINT" YOU SHOULD NOTICE THAT THERE"
2090 PRINT" IS A PATTERN."
2100 GOSUB830
2110 GOSUB850:PRINT" [215]ITHOUT USING PENCIL AND PAPER "
2120 PRINT" WHAT IS THE MISSING EXPONENT?":GOSUB560
2130 PRINTTAB(4)"5    3
2140 [153][163]3)"4  * 4  = 4
2150 PRINT
2160 PRINT" ? ";:US$="0123456789":UL=1:GOSUB35:F=VAL(UR$)
2170 PRINTTAB(13)"[145][145][145][145]";F;""
2180 IF F<>8 THEN 7280
2190 :
2200 GOSUB 7130
2210 REM
2220 GOSUB850: PRINT"[160][160]     [160][196][201][214][201][211][201][207][206][160][207][198][160][197][216][208][207][206][197][206][212][211]
2230 [153]"        ---------------------
2240 PRINT" [208]OWERS CAN BE EASILY DIVIDED."
2250 PRINT" FOR EXAMPLE;"
2260 PRINT
2270 PRINTTAB(4)"5
2280 [153][163]3)"2
2290 PRINTTAB(3)"---   CAN BE SIMPLIFIED AS FOLLOWS"
2300 PRINTTAB(4)"2
2310 [153][163]3)"2
2330 GOSUB 7190
2340 GOSUB830
2350 GOSUB850:PRINT"     [211]INCE THE OPERATION ON TOP "
2360 PRINT"     AND BOTTOM IS MULTIPLICATION,"
2370 PRINT"     WE CAN CANCEL TWO 2'S."
2380 GOSUB830
2390 GOSUB850:PRINT " WE GET THIS:"
2400 GOSUB 7190
2410 PRINTTAB(9)"2*2[146]*2*2*2
2420 [153][163]7)"= ---------
2430 PRINTTAB(9)"2*2[146]
2440 [153] " (null)OTE: THE NUMBERS LIT UP REPRESENT"
2450 [153]" THE NUMBERS THAT WE'LL CANCEL."
2470 [153][163]7)"=CLOSE2*2*2
2480 PRINT
2490 PRINTTAB(10)"3
2500 [153][163]7)"=CLOSE2
2510 GOSUB830
2520 GOSUB850:PRINT" [193]NOTHER EXAMPLE WOULD BE:"
2530 PRINTTAB(4)"7
2540 [153][163]3)"4
2550 PRINTTAB(3)"--- =
2560 [153][163]4)"5
2570 PRINTTAB(3)"4
2580 [153][163]9)"ONONONON4*4*4*4*4*4*4
2590 PRINTTAB(7)"= -----------
2600 [153]
2610 [153][163]9)"4*4*4*4*4
2621 PRINT""
2630 PRINTTAB(9)"4*4*4*4*4[146]*4*4
2640 [153][163]7)"= -------------
2650 PRINTTAB(9)"4*4*4*4*4[146]
2670 [153][163]7)"= 4*4
2680 PRINT""
2690 PRINTTAB(10)"2
2700 [153][163]7)"= 4
2710 GOSUB830
2720 GOSUB850:PRINT" [211]INCE: "
2730 PRINTTAB(4)"5
2740 [153][163]3)"2      3
2750 PRINTTAB(3)"--- = 2   , AND
2760 [153][163]4)"2
2770 PRINTTAB(3)"2
2780 [153]""
2790 [153][163]4)"7
2800 PRINTTAB(3)"4      2
2810 [153][163]3)"--- = 4   ,
2820 PRINTTAB(4)"5
2830 [153][163]3)"4
2840 PRINT" YOU SHOULD NOTICE THAT "
2850 PRINT" THERE IS A PATTERN."
2860 GOSUB830:I=0
2870 GOSUB850:PRINT" [215]ITHOUT USING PENCIL AND PAPER "
2880 PRINT" WHAT IS THE MISSING EXPONENT?":GOSUB560
2890 PRINTTAB(4)"8
2900 [153][163]3)"3
2910 PRINTTAB(3)"--- = 3
2920 [153][163]4)"5
2930 PRINTTAB(3)"3"
2940 PRINT" [205]ISSING EXPONENT? ";
2950 :US$="0123456789":UL=1:GOSUB35:T=VAL(UR$)
2960 PRINTTAB(9)"[145][145][145][145][145][145]"T""
2970 IF T=3 THEN 3010
2980 GOSUB 7000
2990 GOSUB 6970
3000 GOTO 2870
3010 GOSUB 7130
3020 GOSUB850:PRINT" [209]UESTION # 2 "
3030 PRINTTAB(4)"9
3040 [153][163]3)"8
3050 PRINTTAB(3)"--- = 8
3060 [153][163]4)"2
3070 PRINTTAB(3)"8
3080 [141]560:[153]" (null)HAT IS THE (null)ISSING EXPONENT? ";
3090 :US$[178]"0123456789":UL[178]1:[141]35:G[178][197](UR$)
3100 [153][163]9)"ONONONONONON"G""
3110 [139] G[178]7 [167] 3170
3120 [153]"ONON";:[141] 6550
3130 J[178]J[170]1
3140 [139] J[178]2 [167][129]QQ[178]1[164]100:[130]QQ:[137]3180
3150 [141] 6970
3160 [137] 3020
3170 [141] 7130
3180 [141]850:[153]"   PEEKY NOW YOU HAVE SEEN SEVERAL"
3190 [153]"   IMPORTANT CHARACTERISTICS OF"
3200 [153]"   EXPONENTS."
3210 [153]"   (null)HESE NEXT TWO QUESTIONS"
3220 [153]"   WILL DETERMINE IF YOU"
3230 [153]"   UNDERSTAND THEM."
3240 [141]830
3250 [141]850:[153]" (null)HEN ANSWERING THE NEXT TWO"
3260 [153]" QUESTIONS, SIMPLY TYPE THE FIRST"
3270 [153]" LETTER OF THE WORD YOU CHOSE."
3280 [153]" (null)UESTION # 1"
3290 [153] " (null)HEN DIVIDING, WE"
3300 [153] "                  ----------
3310 PRINT " THE EXPONENTS."
3320 PRINT " [195]HOICES: A[146]DD, S[146]UBTRACT, M[146]ULTIPLY, OR             D[146]IVIDE.
3330 V[178]V[170]1
3340 [139] V[178]3 [167] 3640
3350 [153]" ";:US$[178]"ASMD":UL[178]1:[141]35:L$[178]UR$:[153]"ON  "
3360 [139] L$[179][177]"S"[167] [137] 3420
3370 Z1$[178]"SUBTRACT":[141] 7500
3380 :
3390 [153]" (null)HAT'S RIGHT!":[141]500
3400 [141]830
3410 [137] 3670
3420 [139] L$[179][177]"A"[167] [137] 3490
3430 Z1$[178]"   ADD":[141] 7500
3440 :
3450 [153]" (null)HAT'S WRONG.":[141]530
3460 [141]830
3470 [141] 6240
3480 [137]3250
3490 [139] L$[179][177]"M"[167] [137] 3560
3500 Z1$[178]"MULTIPLY":[141] 7500
3520 [153]" (null)HAT'S WRONG! ":[141]530
3530 [141]860:[141]830
3540 [141] 6240
3550 [137] 3250
3560 [139] L$[179][177]"D"[167] [137] 3630
3570 Z1$[178]" STR$IVIDE":[141] 7500
3580 :
3590 [153]" (null)HAT'S WRONG!":[141]530
3600 [141]860:[141]830
3610 [141] 6240
3620 [137] 3250
3630 [137] 3250
3640 [153] " (null)HE ANSWER IS (null)(null)PEEK(null)(null)ATNLEN(null)."
3650 Z1$[178]"(null)UBTRACTWAIT":[141] 7500
3660 [141]830
3670 [141]850:[153]" (null)UESTION # 2"
3680 [153]" (null)HEN MULTIPLYING, WE
3690 PRINT"                     ---------"
3700 PRINT" THE EXPONENTS."
3710 PRINT" [195]HOICES: A[146]DD, S[146]UBTRACT, M[146]ULTIPLY, OR             D[146]IVIDE."
3720 M=M+1
3730 IF M=3 THEN 4090
3740 PRINT" ";:US$="ASMD":UL=1:GOSUB35:U$=UR$
3750 IF U$<>"A" THEN 3810
3760 Z1$="ADD":GOSUB 7550
3770 :
3780 PRINT" [212]HAT'S RIGHT.":GOSUB500
3790 GOSUB830
3800 GOTO 4120
3810 IF U$<>"S"THEN 3900
3820 Z1$="SUBTRACT":GOSUB 7550
3830 :
3840 :
3850 PRINT" [212]HAT'S WRONG.":GOSUB530
3860 PRINT"
3870 [141]830
3880 [141] 6400
3890 [137] 3670
3900 [139] U$[179][177]"M" [167] 3990
3910 Z1$[178]"MULTIPLY":[141] 7550
3920 :
3930 :
3940 [153]" (null)HAT'S WRONG!":[141]530
3950 [153]"
3960 GOSUB830
3970 GOSUB 6400
3980 GOTO 3670
3990 IF U$<>"D" THEN 4080
4000 Z1$="  DIVIDE":GOSUB 7550
4010 :
4020 :
4030 PRINT" [212]HAT'S WRONG!":GOSUB530
4040 PRINT"
4050 [141]830
4060 [141] 6400
4070 [137] 3670
4080 [137] 3740
4090 Z1$[178]"ADDWAIT":[141] 7550:[153]" (null)HE ANSWER IS ATNSTR$STR$!
4100 PRINT"               ---
4110 [141]830
4120 :
4130 [141]850:[153]" (null)UESTION # 1"
4160 [153][163]5)"7    2
4170 PRINTTAB(4)"3  * 3  = 3
4180 [153]" VALXPONENT? ";:US$[178]"0123456789":UL[178]1:[141]35:M[178][197](UR$)
4190 :
4200 Z1$[178]UR$:[141] 7700
4210 [153]"
4220 IF M<>9 THEN 4260
4230 GOSUB 5550
4240 GOSUB 6520
4250 GOTO 4310
4260 GOSUB 6500
4270 PRINT" [212]HE ANSWER IS 9."
4280 Z1$="9[146]":GOSUB 7600
4290 :
4300 GOSUB830
4310 GOSUB850:PRINT" [209]UESTION # 2"
4320 PRINTTAB(5)"8    5
4330 [153][163]4)"7  * 7  = 7
4340 PRINT" [197]XPONENT? ";:US$="0123456789":UL=2:GOSUB35:N=VAL(UR$)
4350 :
4360 Z1$=UR$:GOSUB 7700
4370 PRINT"
4380 [139] N[179][177]13 [167] 4420
4390 [141] 5550
4400 [141] 6520
4410 [137] 4460
4420 [141] 6500
4430 [153]" (null)HE ANSWER IS 13."
4440 Z1$[178]"13WAIT":[141] 7600
4450 [141]830
4460 [141]850:[153]" (null)UESTION # 3
4470 PRINTTAB(5)"6      4
4480 [153][163]3)"10  * 10  = 10
4490 PRINT" [197]XPONENT? ";:US$="0123456789":UL=2:GOSUB35:B=VAL(UR$)
4500 Z1$=UR$:GOSUB 7700
4530 IF B<>10 THEN 4570
4540 GOSUB 5550
4550 GOSUB 6520
4560 GOTO 4610
4570 GOSUB 6500
4580 PRINT" [212]HE ANSWER IS 10."
4590 Z1$="10[146]":GOSUB 7600
4600 GOSUB830
4610 :
4620 :
4630 GOSUB850:PRINT" [209]UESTION # 4"
4640 PRINTTAB(3)"2    5    2
4650 [153][163]2)"2  * 2  * 2  = 2
4660 PRINT" [197]XPONENT? ";:US$="0123456789":UL=1:GOSUB35:V=VAL(UR$)
4670 Z1$=UR$:GOSUB 7700
4700 IF V<>9 THEN 4740
4710 GOSUB 5550
4720 GOSUB 6520
4730 GOTO 4790
4740 GOSUB 6500
4750 PRINT" [212]HE ANSWER IS 9."
4760 Z1$="9[146]":GOSUB7600
4770 GOSUB830
4790 GOSUB850:PRINT" [209]UESTION # 5"
4800 PRINT"   2    5    1    7
4810 [153]"  4  * 4  * 4  * 4  = 4
4820 PRINT" [197]XPONENT? ";:US$="0123456789":UL=2:GOSUB35:C=VAL(UR$)
4830 Z1$=UR$:GOSUB 7700
4860 IF C<>15 THEN 4900
4870 GOSUB 5550
4880 GOSUB 6520
4890 GOTO 4950
4900 GOSUB 6500
4910 PRINT" [212]HE ANSWER IS 15."
4920 Z1$="15[146]":GOSUB 7600
4930 PRINT"
4940 [141]830
4950 [141]850:[153]" (null)UESTION # 6"
4960 :
4970 :
4980 :
4990 [153][163]5)"7
5000 PRINTTAB(4)"5
5010 [153][163]4)"--- = 5
5020 PRINTTAB(5)"2
5030 [153][163]4)"5
5040 PRINT" [197]XPONENT? ";:US$="0123456789":UL=1:GOSUB35:X=VAL(UR$)
5050 Z1$=UR$:GOSUB 7700
5060 :
5070 :
5080 IF X<>5 THEN 5120
5090 GOSUB 5550
5100 GOSUB 6520
5110 GOTO 5160
5120 GOSUB 6500
5130 PRINT" [212]HE ANSWER IS 5."
5140 Z1$="5[146]":GOSUB 7600
5150 GOSUB830
5160 GOSUB850:PRINT" [209]UESTION # 7"
5170 PRINTTAB(5)"21
5180 [153][163]4)"2
5190 PRINTTAB(4)"---- = 2
5200 [153][163]5)"15
5210 PRINTTAB(4)"2
5220 [153]" VALXPONENT? ";:US$[178]"0123456789H":UL[178]1:[141]35:Z[178][197](UR$)
5230 :
5240 Z1$[178]UR$:[141] 7700
5250 :
5260 [139] Z[179][177]6 [167] 5300
5270 [141] 5550
5280 [141] 6520
5290 [137] 5350
5300 [141] 6500
5310 [153]" (null)HE ANSWER IS 6."
5320 Z1$[178]"6WAIT":[141] 7600
5330 :
5340 [141]830
5350 [141]850:[153]" (null)UESTION # 8"
5360 [153][163]6)"12
5370 PRINTTAB(4)"10
5380 [153][163]4)"---- = 10
5390 PRINTTAB(6)"11
5400 [153][163]4)"10
5410 PRINT" [197]XPONENT? ";:US$="0123456789":UL=1:GOSUB35:K=VAL(UR$)
5420 :
5430 PRINTTAB(13)"[145][145][145][145][145]"K""
5440 PRINT"
5450 [139] K[179][177]1 [167] 5490
5460 [141] 5550
5470 [141] 6520
5480 [137] 5530
5490 [141] 6500
5500 [153]" (null)HE ANSWER IS 1."
5510 [153][163]14)"ONONONONONONONONONONONON1WAIT     "
5520 [141]830
5530 [137] 5570
5540 [143]
5550 Q[178]Q[170]1
5560 [142]
5570 [141]850:[153]" (null)OU SCORED "Q" OUT OF 8."
5580 :
5590 [141]830
5600 [141]850:[153]" LENLEFT$(null)RIGHT$LENVAL:
5605 PRINT" [208]RESS  1 [146] TO REPEAT THIS PROGRAM
5610 [153]" (null)RESS  9 WAIT TO RETURN TO (null)VAL(null)(null)
5615 GETR$:IFR$<>"1"ANDR$<>"9"THEN5615
5620 IFR$="1"THENRESTORE:GOTO800
5625 REM
5630 PRINT"[147] [210]ETURNING TO THE DISK MENU."
5635 LOAD"MENU",8
5636 RUN
5637 END
5640 GOSUB850:PRINT" [212]HIS TERM:";
5650 :
5660 PRINTTAB(25)"***
5670 [153][163]27)"*
5680 PRINTTAB(26)"**
5690 [153][163]13)"********      *
5700 PRINTTAB(13)"*           ***
5710 [153][163]13)"*
5720 PRINTTAB(13)"******
5730 [153][163]19)"*
5740 PRINTTAB(20)"*
5750 [153][163]20)"*
5760 PRINTTAB(13)"*     *
5770 [153][163]14)"*****
5780 PRINT" IS CALLED A POWER,"
5790 PRINT"             -----
5800 [153]" WHERE 5 IS THE BASE, AND"
5810 [153]"                ----";
5820 [153]"ON, 3 IS THE EXPONENT."
5830 [153]"ON"[166]31)"--------"
5840 :
5850 [141]830
5860 [141]850:[153]" RIGHT$N THIS TERM;"
5870 [153][163]25)"****
5880 PRINTTAB(28)"*
5890 [153][163]27)"*
5900 PRINTTAB(22)"*   *
5910 [153][163]21)"**   *
5920 PRINTTAB(20)"* *
5930 [153][163]19)"*  *
5940 PRINTTAB(18)"*   *
5950 [153][163]17)"********
5960 PRINTTAB(22)"*
5970 [153][163]22)"*
5980 PRINT" [212]HE BASE IS? ";
5990 :US$="0123456789":UL=1:GOSUB35:W=VAL(UR$)
6000 IF W=4 THEN 6100
6010 PRINT
6020 R=R+1
6030 IF R=1 THEN 6080
6040 GOSUB 6860
6050 PRINT
6060 PRINT"[145]":GOSUB 6930
6070 PRINT"[145]";:GOTO 6100
6080 GOSUB 6190
6090 GOTO 5640
6100 PRINT" [212]HEN 7 IS THE? ";
6110 :US$="":UL=8:GOSUB35:E$=UR$
6120 IF E$="EXPONENT" THEN 6170
6130 D=D+1
6140 IF D=2 THEN 6880
6150 GOSUB 6190
6160 GOTO 5640
6170 GOSUB 7130
6180 RETURN
6190 GOSUB850:PRINT" [211]ORRY!         [212]HAT'S WRONG.":GOSUB530
6200 PRINT" [204]ET'S LOOK AT OUR EXAMPLE
6210 [153]" AGAIN.
6220 GOSUB830
6230 RETURN
6240 GOSUB850:PRINT" [210]EAD CAREFULLY, PAYING"
6250 PRINT" CLOSE ATTENTION TO THE
6260 [153]" EXPONENTS.
6270 PRINTTAB(4)"7
6280 [153][163]3)"7      4
6290 PRINTTAB(3)"--- = 7
6300 [153][163]4)"3
6310 PRINTTAB(3)"7
6320 [153]"
6330 PRINTTAB(4)"10
6340 [153][163]3)"4      1
6350 PRINTTAB(3)"--- = 4
6360 [153][163]4)"9
6370 PRINTTAB(3)"4
6380 [141]830
6390 [142]
6400 [141]850:[153]" (null)EAD CAREFULLY, PAYING"
6410 [153]" CLOSE ATTENTION TO THE
6420 PRINT" EXPONENTS."
6430 PRINTTAB(4)"3    6    9
6440 [153][163]3)"6  * 6  = 6
6450 PRINT"
6460 [153][163]5)"5    6     11
6470 PRINTTAB(2)"10  * 10  = 10
6480 [141]860:[141]830
6490 [142]
6500 [153]" DEF (null)HAT'S WRONG!LIST":[141]530
6510 [142]
6520 [153]" SYS (null)HAT'S RIGHT!LIST":[141]500
6530 [141]830
6540 [142]
6550 O[178]O[170]1
6560 [139] O[178]2 [167] 6590
6570 [141] 7410
6580 [142]
6590 [141] 6950:[141]830
6600 [141] 6880
6610 [142]
6620 [153]" (null)HAT'S WRONG. ":[141]530
6630 [153]" (null)EAD CAREFULLY."
6660 [153]"                 5
6670 PRINT" [201][198][160]2*2*2*2*2[160]=[160]2  ,
6690 [141]830
6700 [137] 1620
6780 [137] 1750
6790 [139] Y[178]1 [167] 6820
6800 [141] 6880
6810 [137] 1760
6820 [153]" (null)HAT'S WRONG AGAIN!":[141]530:[141]591
6830 [153]" (null)E'LL GO THROUGH THE
6840 PRINT" EXPLANATIONS AGAIN.":GOSUB560
6850 GOTO 1460
6860 PRINT"[150] [212]HAT'S NOT RIGHT![155]":GOSUB530
6870 RETURN
6880 GOSUB850:PRINT" [217]OU SEEM UNSURE OF YOURSELF.
6890 [153]" PEEKE SURE TO REVIEW THIS"
6900 [153]" SECTION WITH YOUR TEACHER."
6910 [141]830
6920 [142]
6930 [153]"SYS (null)HE CORRECT ANSWER IS 4.LIST""
6940 RETURN
6950 PRINT"[158] [212]HE MISSING EXPONENT IS 7.[155]"
6960 RETURN
6970 PRINT" [212]HIS TIME SUBTRACT THE EXPONENTS!"
6980 GOSUB830
6990 RETURN
7000 I=I+1
7010 IF I>1 THEN 7060
7020 GOSUB 7410
7030 RETURN
7060 PRINT"[158] [212]HE MISSING EXPONENT IS 3.[155]"
7070 GOSUB830:GOTO3020
7080 RETURN
7090 PRINTTAB(4)"3    4
7100 [153][163]3)"2  * 2
7110 PRINT
7120 RETURN
7130 IFR=2THENPRINT"[145]";:R=0
7131 PRINT"[158] [212]HAT'S RIGHT![155]":GOSUB500
7140 GOSUB830
7150 RETURN
7160 PRINT"[158] [212]HAT'S GOOD![155]":GOSUB500
7170 GOSUB830
7180 RETURN
7190 PRINT
7200 PRINTTAB(4)"5
7210 [153][163]3)"2     2*2*2*2*2
7220 PRINTTAB(3)"--- = ---------
7230 [153][163]4)"2
7240 PRINTTAB(3)"2     2*2
7250 [153]
7260 :
7270 [142]
7280 K[178]K[170]1
7290 [139] K[179][177]3 [167] 7350
7300 [153]
7310 [153]"SYS (null)HE ANSWER IS 8.LIST"
7320 [141]830
7330 [141] 6880
7340 [137] 2210
7350 [141] 7410
7360 [141] 7390
7370 [141]830
7380 [137] 2110
7390 [153]" (null)HIS TIME ADD THE EXPONENTS!
7400 RETURN
7410 PRINT"[150] [212]HAT'S NOT RIGHT![155]":GOSUB530
7420 PRINT" [215]E'LL TRY IT AGAIN. "
7430 PRINT" [200]INT!!"
7440 RETURN
7500 REM QUES 1 CURSORS
7510 ZH=19:Z3=5
7520 ZV=12
7530 GOTO 7600
7540 :
7550 REM QUES 2
7560 ZH=22:Z3=6
7570 ZV=6
7580 GOTO 7600
7590 :
7600 REM QUES CURSORS
7610 PRINTLEFT$(UD$,ZV)
7620 PRINTTAB(ZH);Z1$
7630 PRINTLEFT$(UD$,ZV+Z3)
7640 RETURN
7650 :
7700 REM NUMERIC CURSORS
7710 READ ZH,Z3,ZV
7720 GOTO 7600
7730 :
7740 DATA 15,5,7 :REM 1
7750 DATA 15,5,7 :REM 2
7760 DATA 17,5,7 :REM 3
7770 DATA 18,5,7 :REM 4
7780 DATA 23,5,7 :REM 5
7790 DATA 11,5,8 :REM 6
7800 DATA 12,5,8 :REM 7
7810 DATA 10,5,8 :REM 8
8000 REM WHC 90:12:06